home *** CD-ROM | disk | FTP | other *** search
/ Learn Microsoft Visual Basic 6.0 Now / Learn Microsoft Visual Basic 6.0 Now (Microsoft Press)(X03-58607)(1998).ISO / samples / ch04 / demo4_2.frm < prev    next >
Text File  |  1998-06-07  |  6KB  |  185 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Advanced Operator Tester"
  5.    ClientHeight    =   2385
  6.    ClientLeft      =   1650
  7.    ClientTop       =   1845
  8.    ClientWidth     =   6105
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   2385
  11.    ScaleWidth      =   6105
  12.    Begin VB.Frame Frame1 
  13.       Caption         =   "Operator"
  14.       BeginProperty Font 
  15.          Name            =   "MS Sans Serif"
  16.          Size            =   8.25
  17.          Charset         =   0
  18.          Weight          =   700
  19.          Underline       =   0   'False
  20.          Italic          =   0   'False
  21.          Strikethrough   =   0   'False
  22.       EndProperty
  23.       Height          =   1575
  24.       Left            =   1800
  25.       TabIndex        =   12
  26.       Top             =   360
  27.       Width           =   1815
  28.       Begin VB.OptionButton Option4 
  29.          Caption         =   "Concatenation (&&)"
  30.          Height          =   255
  31.          Left            =   120
  32.          TabIndex        =   6
  33.          Top             =   1080
  34.          Width           =   1575
  35.       End
  36.       Begin VB.OptionButton Option3 
  37.          Caption         =   "Exponentiation (^)"
  38.          Height          =   255
  39.          Left            =   120
  40.          TabIndex        =   5
  41.          Top             =   840
  42.          Width           =   1575
  43.       End
  44.       Begin VB.OptionButton Option2 
  45.          Caption         =   "Remainder (Mod)"
  46.          Height          =   255
  47.          Left            =   120
  48.          TabIndex        =   4
  49.          Top             =   600
  50.          Width           =   1575
  51.       End
  52.       Begin VB.OptionButton Option1 
  53.          Caption         =   "Integer division (\)"
  54.          Height          =   255
  55.          Left            =   120
  56.          TabIndex        =   3
  57.          Top             =   360
  58.          Width           =   1575
  59.       End
  60.    End
  61.    Begin VB.TextBox Text2 
  62.       Height          =   375
  63.       Left            =   120
  64.       TabIndex        =   2
  65.       Top             =   1320
  66.       Width           =   1455
  67.    End
  68.    Begin VB.TextBox Text1 
  69.       Height          =   375
  70.       Left            =   120
  71.       TabIndex        =   1
  72.       Top             =   480
  73.       Width           =   1455
  74.    End
  75.    Begin VB.CommandButton Command2 
  76.       Caption         =   "Quit"
  77.       Height          =   375
  78.       Left            =   4920
  79.       TabIndex        =   8
  80.       Top             =   1800
  81.       Width           =   975
  82.    End
  83.    Begin VB.CommandButton Command1 
  84.       Caption         =   "Calculate"
  85.       Height          =   375
  86.       Left            =   3720
  87.       TabIndex        =   7
  88.       Top             =   1800
  89.       Width           =   975
  90.    End
  91.    Begin VB.Label Label4 
  92.       Caption         =   "Result"
  93.       BeginProperty Font 
  94.          Name            =   "MS Sans Serif"
  95.          Size            =   8.25
  96.          Charset         =   0
  97.          Weight          =   700
  98.          Underline       =   0   'False
  99.          Italic          =   0   'False
  100.          Strikethrough   =   0   'False
  101.       EndProperty
  102.       Height          =   255
  103.       Left            =   3840
  104.       TabIndex        =   11
  105.       Top             =   360
  106.       Width           =   1695
  107.    End
  108.    Begin VB.Label Label3 
  109.       Caption         =   "Variable 2"
  110.       BeginProperty Font 
  111.          Name            =   "MS Sans Serif"
  112.          Size            =   8.25
  113.          Charset         =   0
  114.          Weight          =   700
  115.          Underline       =   0   'False
  116.          Italic          =   0   'False
  117.          Strikethrough   =   0   'False
  118.       EndProperty
  119.       Height          =   255
  120.       Left            =   120
  121.       TabIndex        =   10
  122.       Top             =   1080
  123.       Width           =   1455
  124.    End
  125.    Begin VB.Label Label2 
  126.       Caption         =   "Variable 1"
  127.       BeginProperty Font 
  128.          Name            =   "MS Sans Serif"
  129.          Size            =   8.25
  130.          Charset         =   0
  131.          Weight          =   700
  132.          Underline       =   0   'False
  133.          Italic          =   0   'False
  134.          Strikethrough   =   0   'False
  135.       EndProperty
  136.       Height          =   255
  137.       Left            =   120
  138.       TabIndex        =   9
  139.       Top             =   240
  140.       Width           =   1455
  141.    End
  142.    Begin VB.Label Label1 
  143.       BorderStyle     =   1  'Fixed Single
  144.       Height          =   495
  145.       Left            =   3840
  146.       TabIndex        =   0
  147.       Top             =   720
  148.       Width           =   1695
  149.    End
  150. End
  151. Attribute VB_Name = "Form1"
  152. Attribute VB_GlobalNameSpace = False
  153. Attribute VB_Creatable = False
  154. Attribute VB_PredeclaredId = True
  155. Attribute VB_Exposed = False
  156.  
  157. Private Sub Command1_Click()
  158.     Dim First, Second   'declare variables
  159.     
  160.     First = Text1.Text  'fetch numbers from text boxes
  161.     Second = Text2.Text
  162.     'if first button clicked, do integer division
  163.     If Option1.Value = True Then
  164.         Label1.Caption = First \ Second
  165.     End If
  166.     'if second button clicked, do remainder division
  167.     If Option2.Value = True Then
  168.         Label1.Caption = First Mod Second
  169.     End If
  170.     'if third button clicked, do exponentiation
  171.     If Option3.Value = True Then
  172.         Label1.Caption = First ^ Second
  173.     End If
  174.     'if fourth button clicked, do string concatenation
  175.     If Option4.Value = True Then
  176.         Label1.Caption = First & Second
  177.     End If
  178. End Sub
  179.  
  180. Private Sub Command2_Click()
  181.     End
  182. End Sub
  183.  
  184.  
  185.